home *** CD-ROM | disk | FTP | other *** search
/ Young Minds / Young Minds Interactive CD-ROM.ISO / dungeon / sysvr3 / SysVR3.pch
Encoding:
Text File  |  1988-11-08  |  25.5 KB  |  955 lines
  1. *** README.rjnoe.orig    Fri Oct 28 11:36:38 1988
  2. --- README.rjnoe    Fri Oct 28 11:36:38 1988
  3. ***************
  4. *** 0
  5.  
  6. --- 1,144 -----
  7. + I have attempted porting the UNIX F77 version of Dungeon - which you posted
  8. + to Usenet about a year ago - to the AT&T 3B2/400 running UNIX System V
  9. + Release 3.0.  What follows is a description of some of the things I needed
  10. + to change just to get it running on my system.  I hope you find it useful.
  11. + The base patch level I worked from was 3 (including the "3.1" patch).
  12. + 
  13. + 1. Different F77 Compilation System
  14. + First off, this UNIX system does not use the FORTRAN 77 compiler and
  15. + archive libraries used on previous versions of System V.  What I have is
  16. + called FORTRAN 77 XLA+ Compilation System, Issue 1 Version 0.  The F77
  17. + used on previous UNIX machines is sometimes called f77 1.1.  This difference
  18. + required several changes to Makefile.sysv.  Both the command to invoke
  19. + the compiler and options recognized by the compiler are different.
  20. + I have learned that there is a newer version of F77-XLA+ available from
  21. + AT&T; some of the problems I mention below might be fixed in that version.
  22. + 
  23. + 2. No LOGICAL Arguments to Bitwise Intrinsic Functions
  24. + The F77-XLA+ compiler is picky about LOGICAL type arguments being passed
  25. + to the intrinsic bitwise (INTEGER) functions and(), or(), and not().  This
  26. + was very easily fixed by translating to the logical operators .AND., .OR.,
  27. + and .NOT..
  28. + 
  29. + 3. No INTEGER Arguments to ichar() Intrinsic Function
  30. + The F77-XLA+ compiler is picky about INTEGER arguments passed to ichar().
  31. + They were redundant calls in all cases I found.  (Just the INW() and UINW()
  32. + arrays were involved.)
  33. + 
  34. + 4. No $ Edit Descriptor in FORMAT Statements
  35. + The F77-XLA+ compiler does not recognize the $ in FORMAT statements as a
  36. + means of suppressing newline at the end of an output operation.  This was
  37. + apparently not an oversight; they documented its absence.  I have found some
  38. + vestiges of the code which would have implemented it (e.g. an external symbol
  39. + in the I/O library called "F77nonl") but the capability is just not there.
  40. + I can find no substitute and have been putting up with having my ">" game
  41. + prompt not appear on the same line as my input.
  42. + 
  43. + 5. FUNCTION INIT() Name Conflict
  44. + The external symbol "init" is used in the F77-XLA+ I/O library libfortI77.a
  45. + to indicate whether or not it has been initialized in the current process.
  46. + I merely changed the Dungeon function name to DINIT.
  47. + 
  48. + 6. CLOSE() with Long Filename Causes Fatal Run-time Errors
  49. + There is a bug in the F77-XLA+ I/O library libfortI77.a that occurs when
  50. + trying to CLOSE() a unit that had been OPENed to a UNIX file with a long
  51. + pathname.  Think of the F77 I/O subsystem as overlying the standard I/O
  52. + (stdio) subsystem.  A F77 OPEN eventually calls fopen(3S) [3S: in the stdio
  53. + library] and stores the FILE * pointer which fopen returns into an element
  54. + of an array of structures corresponding to the unit number OPENed.  When
  55. + the unit is CLOSEd, the file name passed to OPEN is copied into a character
  56. + array within this same structure, using strcpy(3C) [3C: in the C library].
  57. + (I assume this is to allow future reOPENing of the file, but haven't really
  58. + looked into this much.)  No bounds or string length checking is done.  So
  59. + when the filename is long (as might be expected for INDXFILE or TEXTFILE),
  60. + this overwrites the next F77 I/O unit structure with garbage.  If the next
  61. + unit was being used, the pointer to the corresponding stdio structure is now
  62. + gone.  If not, the next unit now appears to be in use because the FILE *
  63. + is no longer a NULL pointer and when the F77 code exits normally (e.g.
  64. + through STOP) it will try to clean up this unit.  These considerations
  65. + led me to make the following changes:
  66. + 
  67. +     Since INDXFILE and TEXTFILE could not be CLOSEd once OPENed, I
  68. +     moved INDXFILE from unit 1 to unit 3.  Unit 1 is now used only
  69. +     for "dsave.dat", which is short enough that it can be closed and
  70. +     opened normally.  TEXTFILE remains at unit 2.
  71. + 
  72. +     I dropped my exit.F source file containing SUBROUTINE EXIT (which
  73. +     consisted entirely of one executable statement, STOP) and replaced
  74. +     it with exit.c containing the C function void exit_().  Since STOP
  75. +     tries to clean up F77 I/O unit structures that have been OPENed,
  76. +     I circumvent this by doing a CALL EXIT in F77 which invokes the
  77. +     C function exit_() on my system.  The latter function simply calls
  78. +     exit() in the C/stdio library, cleans up the stdio structures and
  79. +     terminates the process without mucking with the screwy F77 I/O
  80. +     subsystem.
  81. + 
  82. + 7. CHARACTER Arguments Passed Inconsistently
  83. + The F77-XLA+ documentation indicates that a CHARACTER variable (or an
  84. + array of CHARACTER variables) is not quite passed by reference.  Instead
  85. + of just passing the address of the variable (or base address of the array),
  86. + effectively what is passed is a pointer to a structure containing (in C):
  87. + struct { char *s; long l; } where s is the pointer to the CHARACTER variable
  88. + (or array) and l is its length.  So dereferencing the passed pointer once
  89. + will give you s, the address of the CHARACTER variable.  All fine and dandy,
  90. + but they DIDN'T TELL THE PEOPLE WHO CODED THE I/O LIBRARY!  When a CHARACTER
  91. + array is passed to READ(), it interprets the structure pointer passed as the
  92. + address of the variable and starts overwriting the wrong place.  The one place
  93. + I found this was in RDLINE() and I fixed it by changing the READ() BUFFER to
  94. + use an implied DO loop.  What can I say, at least it works.
  95. + 
  96. + 8. Large Amounts of I/O in One Statement Fail
  97. + There appears to be some not easily identifiable bug in the F77-XLA+ I/O
  98. + library which causes it to abort when writing large amounts of data in
  99. + one single WRITE().  I found this when attempting to save the game in
  100. + dsave.dat.  I separated the largest arrays (notably the COMMON /OBJCTS/
  101. + arrays) into individual WRITEs and haven't had any further problems.
  102. + I changed the READs (for game restoration) to be identical, just for
  103. + consistency's sake.
  104. + 
  105. + 
  106. + There are probably other bugs I have not yet discovered.  Already I am
  107. + suspicious of the random number generation on my system since I've never
  108. + had to take more than one whack at the troll before he's knocked out.
  109. + I'll keep looking at things like that and keep you posted, if you like.
  110. + 
  111. + 
  112. + There are also a few other things my compiler complains about that I did not
  113. + bother to fix:
  114. + 
  115. + The C preprocessor (/lib/cpp) in System V Release 3 warns about extra
  116. + tokens on cpp lines like #else, #elif, and #endif.  One way to suppress
  117. + these warnings is to add /* comment */ delimiters around the offending token:
  118. +     #ifdef PDP
  119. +     ...
  120. +     #else /* PDP */
  121. +     ...
  122. +     #endif /* PDP */
  123. + 
  124. + The F77-XLA+ compiler warns about a duplicate type statement for PRSWON in
  125. + FUNCTION BLOW in demons.F.  Since PRSWON is already declared in parser.h, it
  126. + need not be declared again in demons.F, as it #includes parser.h.
  127. + 
  128. + The F77-XLA+ compiler complains if the last statement before END in each
  129. + FUNCTION is not a RETURN.  Specifically, in the following:
  130. +         BALLOP in ballop.F
  131. +         DINIT in dinit.F
  132. +         LEX in np.F
  133. +         SPARSE in np1.F
  134. +         CYCLOP in villns.F
  135. + DINIT has FORMAT statements between RETURN and END, CYCLOP has a computed
  136. + GOTO just before the END, and the others all have unconditional GOTOs just
  137. + before their ENDs.  If you ask me, the F77-XLA+ compiler is being a little
  138. + weird here.
  139. + 
  140. + If there's anything I can do to help out with Dungeon, please let me know.
  141. + If no one else has done it, I'm toying with the idea of porting it to C.
  142. + Please let me know your opinion on that.  Thanks.
  143. + --
  144. +     Roger Noe            rjnoe@arrakis.ece.uiuc.edu
  145. +     University of Illinois
  146. +     Department of Electrical and Computer Engineering
  147. +     248 Everitt Laboratory
  148. +     1406 West Green Street
  149. +     Urbana, IL  61801  USA        40:06:39 N.  88:13:41 W.
  150. +     +1 217 333 3496
  151. *** Makefile.sysv.orig    Mon Oct 24 15:28:55 1988
  152. --- Makefile.sysv    Mon Oct 24 15:28:54 1988
  153. ***************
  154. *** 1,3
  155.   # Makefile for creating dungeon
  156.   # Edit BIN DDIR and FFLAGS suitable for your system
  157.   # Also, if you are running System V change the .F.o production
  158.  
  159. --- 1,4 -----
  160. + F77 = fort
  161.   # Makefile for creating dungeon
  162.   # Edit BIN DDIR and FFLAGS suitable for your system
  163.   # Also, if you are running System V change the .F.o production
  164. ***************
  165. *** 11,17
  166.   #    f77 -c $(FFLAGS) $*.F
  167.   # For System V use the following production instead:
  168.       @/lib/cpp $(CPPFLAGS) $*.F > $*.f
  169. !     f77 -c $(FFLAGS) $*.f
  170.       rm $*.f
  171.   
  172.   # define SYSV if running System V or V7
  173.  
  174. --- 12,18 -----
  175.   #    f77 -c $(FFLAGS) $*.F
  176.   # For System V use the following production instead:
  177.       @/lib/cpp $(CPPFLAGS) $*.F > $*.f
  178. !     $(F77) -c $(FFLAGS) $*.f
  179.       rm $*.f
  180.   
  181.   # define SYSV if running System V or V7
  182. ***************
  183. *** 24,30
  184.   #FOPTS = -q # -g -Ddebug
  185.   # use -Nn650 for System V to increase default symbol table size
  186.   # also, no -g flag (causes runtime errors)
  187. ! FOPTS = -q -Nn650
  188.   # f77 compiler flags for pdp (64K split I/D)
  189.   #FOPTS = -q -I2 -L1 -i -DPDP # -Ddebug
  190.   FFLAGS = -O $(FOPTS)
  191.  
  192. --- 25,32 -----
  193.   #FOPTS = -q # -g -Ddebug
  194.   # use -Nn650 for System V to increase default symbol table size
  195.   # also, no -g flag (causes runtime errors)
  196. ! #FOPTS = -q -Nn650
  197. ! FOPTS = 
  198.   # f77 compiler flags for pdp (64K split I/D)
  199.   #FOPTS = -q -I2 -L1 -i -DPDP # -Ddebug
  200.   FFLAGS = -O $(FOPTS)
  201. ***************
  202. *** 51,57
  203.   FSRC =  actors.F ballop.F clockr.F demons.F\
  204.       dgame.F dinit.F dmain.F dso1.F dso2.F\
  205.       dso3.F dso4.F dso5.F dso6.F dso7.F\
  206. !     dsub.F dverb1.F dverb2.F exit.F gdt.F lightp.F\
  207.       nobjs.F np.F np1.F np2.F np3.F nrooms.F objcts.F\
  208.       rooms.F sobjs.F sverbs.F verbs.F villns.F
  209.   
  210.  
  211. --- 53,59 -----
  212.   FSRC =  actors.F ballop.F clockr.F demons.F\
  213.       dgame.F dinit.F dmain.F dso1.F dso2.F\
  214.       dso3.F dso4.F dso5.F dso6.F dso7.F\
  215. !     dsub.F dverb1.F dverb2.F gdt.F lightp.F\
  216.       nobjs.F np.F np1.F np2.F np3.F nrooms.F objcts.F\
  217.       rooms.F sobjs.F sverbs.F verbs.F villns.F
  218.   
  219. ***************
  220. *** 55,61
  221.       nobjs.F np.F np1.F np2.F np3.F nrooms.F objcts.F\
  222.       rooms.F sobjs.F sverbs.F verbs.F villns.F
  223.   
  224. ! CSRC =    cinit.c cio.c cspeak.c decode.c lex.c listen.c rtim.c
  225.   
  226.   OBJS =  actors.o ballop.o clockr.o demons.o\
  227.       dgame.o dinit.o dmain.o dso1.o dso2.o\
  228.  
  229. --- 57,63 -----
  230.       nobjs.F np.F np1.F np2.F np3.F nrooms.F objcts.F\
  231.       rooms.F sobjs.F sverbs.F verbs.F villns.F
  232.   
  233. ! CSRC =    cinit.c cio.c cspeak.c decode.c exit.c lex.c listen.c rtim.c
  234.   
  235.   OBJS =  actors.o ballop.o clockr.o demons.o\
  236.       dgame.o dinit.o dmain.o dso1.o dso2.o\
  237. ***************
  238. *** 72,78
  239.   pdp:    dungpdp speak listen dtext.dat
  240.   
  241.   dungeon: $(OBJS)
  242. !     f77 -o dungeon $(OBJS) $(LDFLAGS)
  243.       @echo done
  244.   
  245.   dungpdp: $(OBJS) $(PDPOBJS)
  246.  
  247. --- 74,80 -----
  248.   pdp:    dungpdp speak listen dtext.dat
  249.   
  250.   dungeon: $(OBJS)
  251. !     $(F77) -o dungeon $(OBJS) $(LDFLAGS)
  252.       @echo done
  253.   
  254.   dungpdp: $(OBJS) $(PDPOBJS)
  255. ***************
  256. *** 98,105
  257.   dinit.o: dinit.F
  258.   #    f77 $(FFLAGS) -DDDIR=$(DDIR) $(WIZDEF) -c dinit.F
  259.   # For System V use the following instead:
  260. !     @/lib/cpp $(CPPFLAGS) dinit.F > dinit.f
  261. !     f77 $(FFLAGS) -DDDIR=$(DDIR) $(WIZDEF) -c dinit.f
  262.       rm $*.f
  263.   
  264.   # uncomment the following for Suns to get around an optimizer bug
  265.  
  266. --- 100,107 -----
  267.   dinit.o: dinit.F
  268.   #    f77 $(FFLAGS) -DDDIR=$(DDIR) $(WIZDEF) -c dinit.F
  269.   # For System V use the following instead:
  270. !     @/lib/cpp $(CPPFLAGS) -DDDIR=$(DDIR) $(WIZDEF) dinit.F > dinit.f
  271. !     $(F77) -c $(FFLAGS) dinit.f
  272.       rm $*.f
  273.   
  274.   # uncomment the following for Suns to get around an optimizer bug
  275. *** dinit.F.orig    Mon Oct 24 15:28:55 1988
  276. --- dinit.F    Mon Oct 24 15:28:55 1988
  277. ***************
  278. *** 18,24
  279.   C
  280.   C DECLARATIONS
  281.   C
  282. !     LOGICAL FUNCTION INIT(X)
  283.       IMPLICIT INTEGER (A-Z)
  284.   #ifndef PDP
  285.       LOGICAL PROTCT
  286.  
  287. --- 18,24 -----
  288.   C
  289.   C DECLARATIONS
  290.   C
  291. !     LOGICAL FUNCTION DINIT(X)
  292.       IMPLICIT INTEGER (A-Z)
  293.   #ifndef PDP
  294.       LOGICAL PROTCT
  295. ***************
  296. *** 153,159
  297.       FROMDR=0
  298.       SCOLRM=0
  299.       SCOLAC=0
  300. !     INIT=.FALSE.        
  301.       MLOC=MRB
  302.   C
  303.   C INIT, PAGE 4
  304.  
  305. --- 153,159 -----
  306.       FROMDR=0
  307.       SCOLRM=0
  308.       SCOLAC=0
  309. !     DINIT=.FALSE.        
  310.       MLOC=MRB
  311.   C
  312.   C INIT, PAGE 4
  313. ***************
  314. *** 247,253
  315.       HERE=AROOM(WINNER)
  316.       THFPOS=OROOM(THIEF)
  317.       BLOC=OROOM(BALLO)
  318. !     INIT=.TRUE.
  319.   #ifdef debug
  320.   C
  321.   C    Normally, PRSFLG is setable in gdt to allow seeing various
  322.  
  323. --- 247,253 -----
  324.       HERE=AROOM(WINNER)
  325.       THFPOS=OROOM(THIEF)
  326.       BLOC=OROOM(BALLO)
  327. !     DINIT=.TRUE.
  328.   #ifdef debug
  329.   C
  330.   C    Normally, PRSFLG is setable in gdt to allow seeing various
  331. ***************
  332. *** 266,272
  333.   1925    continue
  334.       END
  335.   #else PDP
  336. ! 10000    INIT=.FALSE.
  337.   C                        !ASSUME INIT FAILS.
  338.       MMAX=1050
  339.   C                        !SET UP ARRAY LIMITS.
  340.  
  341. --- 266,272 -----
  342.   1925    continue
  343.       END
  344.   #else PDP
  345. ! 10000    DINIT=.FALSE.
  346.   C                        !ASSUME INIT FAILS.
  347.       MMAX=1050
  348.   C                        !SET UP ARRAY LIMITS.
  349. ***************
  350. *** 449,455
  351.   C
  352.   C NOW RESTORE FROM EXISTING INDEX FILE.
  353.   C
  354. !     OPEN(UNIT=1,file=INDXFILE,status='OLD',
  355.   #ifdef XELOS
  356.   &        FORM='FORMATTED',ACCESS='SEQUENTIAL',ERR=1900,recl=1)
  357.   #else
  358.  
  359. --- 449,455 -----
  360.   C
  361.   C NOW RESTORE FROM EXISTING INDEX FILE.
  362.   C
  363. !     OPEN(UNIT=3,file=INDXFILE,status='OLD',
  364.   #ifdef XELOS
  365.   &        FORM='FORMATTED',ACCESS='SEQUENTIAL',ERR=1900,recl=1)
  366.   #else
  367. ***************
  368. *** 455,462
  369.   #else
  370.   &        FORM='FORMATTED',ACCESS='SEQUENTIAL',ERR=1900)
  371.   #endif
  372. !     rewind(unit=1, err=1900)
  373. !     READ(1,130) I,J,K
  374.   C                        !GET VERSION.
  375.       IF((I.NE.VMAJ).OR.(J.NE.VMIN))
  376.   &        GO TO 1925
  377.  
  378. --- 455,462 -----
  379.   #else
  380.   &        FORM='FORMATTED',ACCESS='SEQUENTIAL',ERR=1900)
  381.   #endif
  382. !     rewind(unit=3, err=1900)
  383. !     READ(3,130) I,J,K
  384.   C                        !GET VERSION.
  385.       IF((I.NE.VMAJ).OR.(J.NE.VMIN))
  386.   &        GO TO 1925
  387. ***************
  388. *** 474,483
  389.   150    FORMAT(' RESTORING FROM "dindx.dat"')
  390.   #endif NOCC
  391.   #endif debug
  392. !     READ(1,130) MXSCOR,STRBIT,EGMXSC
  393. !     READ(1,130) RLNT,RDESC2,RDESC1,REXIT,RACTIO,RVAL,RFLAG
  394. !     READ(1,130) XLNT,TRAVEL
  395. !     READ(1,130) OLNT,ODESC1,ODESC2,ODESCO,OACTIO,OFLAG1,OFLAG2,
  396.   &        OFVAL,OTVAL,OSIZE,OCAPAC,OROOM,OADV,OCAN,
  397.   &        OREAD
  398.       READ(1,130) R2LNT,OROOM2,RROOM2
  399.  
  400. --- 474,483 -----
  401.   150    FORMAT(' RESTORING FROM "dindx.dat"')
  402.   #endif NOCC
  403.   #endif debug
  404. !     READ(3,130) MXSCOR,STRBIT,EGMXSC
  405. !     READ(3,130) RLNT,RDESC2,RDESC1,REXIT,RACTIO,RVAL,RFLAG
  406. !     READ(3,130) XLNT,TRAVEL
  407. !     READ(3,130) OLNT,ODESC1,ODESC2,ODESCO,OACTIO,OFLAG1,OFLAG2,
  408.   &        OFVAL,OTVAL,OSIZE,OCAPAC,OROOM,OADV,OCAN,
  409.   &        OREAD
  410.       READ(3,130) R2LNT,OROOM2,RROOM2
  411. ***************
  412. *** 480,491
  413.       READ(1,130) OLNT,ODESC1,ODESC2,ODESCO,OACTIO,OFLAG1,OFLAG2,
  414.   &        OFVAL,OTVAL,OSIZE,OCAPAC,OROOM,OADV,OCAN,
  415.   &        OREAD
  416. !     READ(1,130) R2LNT,OROOM2,RROOM2
  417. !     READ(1,130) CLNT,CTICK,CACTIO
  418. !     READ(1,135) CFLAG
  419. !     READ(1,130) VLNT,VILLNS,VPROB,VOPPS,VBEST,VMELEE
  420. !     READ(1,130) ALNT,AROOM,ASCORE,AVEHIC,AOBJ,AACTIO,ASTREN,AFLAG
  421. !     READ(1,130) MBASE,MLNT,RTEXT
  422.   C
  423.       CLOSE(1)
  424.       GO TO 1025
  425.  
  426. --- 480,491 -----
  427.       READ(3,130) OLNT,ODESC1,ODESC2,ODESCO,OACTIO,OFLAG1,OFLAG2,
  428.   &        OFVAL,OTVAL,OSIZE,OCAPAC,OROOM,OADV,OCAN,
  429.   &        OREAD
  430. !     READ(3,130) R2LNT,OROOM2,RROOM2
  431. !     READ(3,130) CLNT,CTICK,CACTIO
  432. !     READ(3,135) CFLAG
  433. !     READ(3,130) VLNT,VILLNS,VPROB,VOPPS,VBEST,VMELEE
  434. !     READ(3,130) ALNT,AROOM,ASCORE,AVEHIC,AOBJ,AACTIO,ASTREN,AFLAG
  435. !     READ(3,130) MBASE,MLNT,RTEXT
  436.   C
  437.   C    don't CLOSE index file, even though it won't be used again
  438.   C
  439. ***************
  440. *** 487,493
  441.       READ(1,130) ALNT,AROOM,ASCORE,AVEHIC,AOBJ,AACTIO,ASTREN,AFLAG
  442.       READ(1,130) MBASE,MLNT,RTEXT
  443.   C
  444. !     CLOSE(1)
  445.       GO TO 1025
  446.   C                        !INIT DONE.
  447.   C
  448.  
  449. --- 487,494 -----
  450.       READ(3,130) ALNT,AROOM,ASCORE,AVEHIC,AOBJ,AACTIO,ASTREN,AFLAG
  451.       READ(3,130) MBASE,MLNT,RTEXT
  452.   C
  453. ! C    don't CLOSE index file, even though it won't be used again
  454. ! C
  455.       GO TO 1025
  456.   C                        !INIT DONE.
  457.   C
  458. ***************
  459. *** 511,517
  460.       HERE=AROOM(WINNER)
  461.       THFPOS=OROOM(THIEF)
  462.       BLOC=OROOM(BALLO)
  463. !     INIT=.TRUE.
  464.   C
  465.   #ifdef debug
  466.       PRINT 1050,RLNT,RMAX,XLNT,XMAX,OLNT,OMAX,MLNT,MMAX,
  467.  
  468. --- 512,518 -----
  469.       HERE=AROOM(WINNER)
  470.       THFPOS=OROOM(THIEF)
  471.       BLOC=OROOM(BALLO)
  472. !     DINIT=.TRUE.
  473.   C
  474.   #ifdef debug
  475.       PRINT 1050,RLNT,RMAX,XLNT,XMAX,OLNT,OMAX,MLNT,MMAX,
  476. *** dmain.F.orig    Mon Oct 24 15:28:56 1988
  477. --- dmain.F    Mon Oct 24 15:28:55 1988
  478. ***************
  479. *** 9,15
  480.   C DECLARATIONS
  481.   C
  482.       IMPLICIT INTEGER (A-Z)
  483. !     LOGICAL INIT
  484.   #include "parser.h"
  485.   #include "gamestate.h"
  486.   #include "state.h"
  487.  
  488. --- 9,15 -----
  489.   C DECLARATIONS
  490.   C
  491.       IMPLICIT INTEGER (A-Z)
  492. !     LOGICAL DINIT
  493.   #include "parser.h"
  494.   #include "gamestate.h"
  495.   #include "state.h"
  496. ***************
  497. *** 193,199
  498.   C 1) INITIALIZE DATA STRUCTURES
  499.   C 2) PLAY GAME
  500.   C
  501. !     IF(INIT(X)) CALL GAME
  502.   C                        !IF INIT, PLAY GAME.
  503.       CALL EXIT
  504.   C                        !DONE
  505.  
  506. --- 193,199 -----
  507.   C 1) INITIALIZE DATA STRUCTURES
  508.   C 2) PLAY GAME
  509.   C
  510. !     IF(DINIT(X)) CALL GAME
  511.   C                        !IF INIT, PLAY GAME.
  512.       CALL EXIT
  513.   C                        !DONE
  514. *** dso3.F.orig    Mon Oct 24 15:28:56 1988
  515. --- dso3.F    Mon Oct 24 15:28:56 1988
  516. ***************
  517. *** 64,70
  518.   C OBJECT IS ON LIST... IS IT A MATCH?
  519.   C
  520.         IF(and(OFLAG1(I),VISIBT).EQ.0) GO TO 1000
  521. !       IF(and(not(NOCARE),(and(OFLAG1(I),TAKEBT).EQ.0)) .OR.
  522.   &        ((and(OFLAG1(I),F1).EQ.0).AND.
  523.   &         (and(OFLAG2(I),F2).EQ.0))) GO TO 500
  524.         IF(FWIM.EQ.0) GO TO 400
  525.  
  526. --- 64,70 -----
  527.   C OBJECT IS ON LIST... IS IT A MATCH?
  528.   C
  529.         IF(and(OFLAG1(I),VISIBT).EQ.0) GO TO 1000
  530. !       IF( ((.NOT. NOCARE) .AND. (and(OFLAG1(I),TAKEBT).EQ.0)) .OR.
  531.   &        ((and(OFLAG1(I),F1).EQ.0).AND.
  532.   &         (and(OFLAG2(I),F2).EQ.0))) GO TO 500
  533.         IF(FWIM.EQ.0) GO TO 400
  534. *** dso7.F.orig    Mon Oct 24 15:28:56 1988
  535. --- dso7.F    Mon Oct 24 15:28:56 1988
  536. ***************
  537. *** 23,29
  538.   C                        !UNBIAS, COMPUTE SUMS.
  539.         UKEYW(I)=char(ichar(KEYW(I))-64)
  540.         IF(INW(J).LE.char(64)) J=1
  541. !       UINW(I)=ichar(ichar(INW(J))-64)
  542.         UKEYWS=UKEYWS+ichar(UKEYW(I))
  543.         UINWS=UINWS+UINW(I)
  544.         J=J+1
  545.  
  546. --- 23,29 -----
  547.   C                        !UNBIAS, COMPUTE SUMS.
  548.         UKEYW(I)=char(ichar(KEYW(I))-64)
  549.         IF(INW(J).LE.char(64)) J=1
  550. !       UINW(I)=ichar(INW(J))-64
  551.         UKEYWS=UKEYWS+ichar(UKEYW(I))
  552.         UINWS=UINWS+UINW(I)
  553.         J=J+1
  554. ***************
  555. *** 32,38
  556.       USUM=MOD(UINWS,8)+(8*MOD(UKEYWS,8))
  557.   C                        !COMPUTE MASK.
  558.       DO 200 I=1,6
  559. !       J=and(xor(xor(ichar(UINW(I)),ichar(UKEYW(I))),USUM),31)
  560.         USUM=MOD(USUM+1,32)
  561.         IF(J.GT.26) J=MOD(J,26)
  562.         OUTW(I)=char(MAX0(1,J)+64)
  563.  
  564. --- 32,38 -----
  565.       USUM=MOD(UINWS,8)+(8*MOD(UKEYWS,8))
  566.   C                        !COMPUTE MASK.
  567.       DO 200 I=1,6
  568. !       J=and(xor(xor(UINW(I),ichar(UKEYW(I))),USUM),31)
  569.         USUM=MOD(USUM+1,32)
  570.         IF(J.GT.26) J=MOD(J,26)
  571.         OUTW(I)=char(MAX0(1,J)+64)
  572. *** dsub.F.orig    Mon Oct 24 15:28:57 1988
  573. --- dsub.F    Mon Oct 24 15:28:56 1988
  574. ***************
  575. *** 391,401
  576.   C                        !INVOLUNTARY EXIT.
  577.   1100    CALL SCORE(.FALSE.)
  578.   C                        !TELL SCORE.
  579. ! #ifdef PDP
  580. ! C    file closed in exit routine
  581. ! #else
  582. !     CLOSE(DBCH)
  583. ! #endif PDP
  584.       CALL EXIT
  585.   C
  586.       END
  587.  
  588. --- 391,397 -----
  589.   C                        !INVOLUNTARY EXIT.
  590.   1100    CALL SCORE(.FALSE.)
  591.   C                        !TELL SCORE.
  592. ! C    don't close DBCH, just exit
  593.       CALL EXIT
  594.   C
  595.       END
  596. *** dverb2.F.orig    Mon Oct 24 15:28:57 1988
  597. --- dverb2.F    Mon Oct 24 15:28:57 1988
  598. ***************
  599. *** 91,99
  600.   &        SWDACT,SWDSTA,CPVEC
  601.       WRITE(1) I,MOVES,DEATHS,RWSCOR,EGSCOR,MXLOAD,
  602.   &        LTSHFT,BLOC,MUNGRM,HS,FROMDR,SCOLRM,SCOLAC
  603. !     WRITE(1) ODESC1,ODESC2,OFLAG1,OFLAG2,OFVAL,OTVAL,
  604. ! &        OSIZE,OCAPAC,OROOM,OADV,OCAN
  605. !     WRITE(1) RVAL,RFLAG
  606.       WRITE(1) AROOM,ASCORE,AVEHIC,ASTREN,AFLAG
  607.       WRITE(1) FLAGS,SWITCH,VPROB,CFLAG,CTICK
  608.   C
  609.  
  610. --- 91,109 -----
  611.   &        SWDACT,SWDSTA,CPVEC
  612.       WRITE(1) I,MOVES,DEATHS,RWSCOR,EGSCOR,MXLOAD,
  613.   &        LTSHFT,BLOC,MUNGRM,HS,FROMDR,SCOLRM,SCOLAC
  614. !     WRITE(1) ODESC1
  615. !     WRITE(1) ODESC2
  616. !     WRITE(1) OFLAG1
  617. !     WRITE(1) OFLAG2
  618. !     WRITE(1) OFVAL
  619. !     WRITE(1) OTVAL
  620. !     WRITE(1) OSIZE
  621. !     WRITE(1) OCAPAC
  622. !     WRITE(1) OROOM
  623. !     WRITE(1) OADV
  624. !     WRITE(1) OCAN
  625. !     WRITE(1) RVAL
  626. !     WRITE(1) RFLAG
  627.       WRITE(1) AROOM,ASCORE,AVEHIC,ASTREN,AFLAG
  628.       WRITE(1) FLAGS,SWITCH,VPROB,CFLAG,CTICK
  629.   C
  630. ***************
  631. *** 195,201
  632.       rewind (unit=1, err=100)
  633.   C
  634.       READ(1) I,J,K
  635. !     IF(or((I.NE.VMAJ),(J.NE.VMIN))) GO TO 200
  636.   C
  637.       READ(1) WINNER,HERE,THFPOS,TELFLG,THFFLG,THFACT,
  638.   &        SWDACT,SWDSTA,CPVEC
  639.  
  640. --- 205,211 -----
  641.       rewind (unit=1, err=100)
  642.   C
  643.       READ(1) I,J,K
  644. !     IF(((I.NE.VMAJ) .OR. (J.NE.VMIN))) GO TO 200
  645.   C
  646.       READ(1) WINNER,HERE,THFPOS,TELFLG,THFFLG,THFACT,
  647.   &        SWDACT,SWDSTA,CPVEC
  648. ***************
  649. *** 201,209
  650.   &        SWDACT,SWDSTA,CPVEC
  651.       READ(1) PLTIME,MOVES,DEATHS,RWSCOR,EGSCOR,MXLOAD,
  652.   &        LTSHFT,BLOC,MUNGRM,HS,FROMDR,SCOLRM,SCOLAC
  653. !     READ(1) ODESC1,ODESC2,OFLAG1,OFLAG2,OFVAL,OTVAL,
  654. ! &        OSIZE,OCAPAC,OROOM,OADV,OCAN
  655. !     READ(1) RVAL,RFLAG
  656.       READ(1) AROOM,ASCORE,AVEHIC,ASTREN,AFLAG
  657.       READ(1) FLAGS,SWITCH,VPROB,CFLAG,CTICK
  658.   C
  659.  
  660. --- 211,229 -----
  661.   &        SWDACT,SWDSTA,CPVEC
  662.       READ(1) PLTIME,MOVES,DEATHS,RWSCOR,EGSCOR,MXLOAD,
  663.   &        LTSHFT,BLOC,MUNGRM,HS,FROMDR,SCOLRM,SCOLAC
  664. !     READ(1) ODESC1
  665. !     READ(1) ODESC2
  666. !     READ(1) OFLAG1
  667. !     READ(1) OFLAG2
  668. !     READ(1) OFVAL
  669. !     READ(1) OTVAL
  670. !     READ(1) OSIZE
  671. !     READ(1) OCAPAC
  672. !     READ(1) OROOM
  673. !     READ(1) OADV
  674. !     READ(1) OCAN
  675. !     READ(1) RVAL
  676. !     READ(1) RFLAG
  677.       READ(1) AROOM,ASCORE,AVEHIC,ASTREN,AFLAG
  678.       READ(1) FLAGS,SWITCH,VPROB,CFLAG,CTICK
  679.   C
  680. ***************
  681. *** 421,427
  682.   C
  683.   C C7-    FROBOZZ FLAG (BANK ALARM)
  684.   C
  685. ! 7000    FROBZF=and((OROOM(BILLS).NE.0),(OROOM(PORTR).NE.0))
  686.       RETURN
  687.   C CXAPPL, PAGE 3
  688.   C
  689.  
  690. --- 441,447 -----
  691.   C
  692.   C C7-    FROBOZZ FLAG (BANK ALARM)
  693.   C
  694. ! 7000    FROBZF=((OROOM(BILLS).NE.0) .AND. (OROOM(PORTR).NE.0))
  695.       RETURN
  696.   C CXAPPL, PAGE 3
  697.   C
  698. *** exit.c.orig    Mon Oct 24 15:28:57 1988
  699. --- exit.c    Mon Oct 24 15:28:57 1988
  700. ***************
  701. *** 0
  702.  
  703. --- 1 -----
  704. + void exit_() { exit(0); }
  705. *** gdt.F.orig    Mon Oct 24 15:28:58 1988
  706. --- gdt.F    Mon Oct 24 15:28:58 1988
  707. ***************
  708. *** 102,108
  709.       GO TO 2000
  710.   C
  711.   #ifdef NOCC
  712. ! 200    FORMAT('GDT>',$)
  713.   #else NOCC
  714.   200    FORMAT(' GDT>',$)
  715.   #endif NOCC
  716.  
  717. --- 102,108 -----
  718.       GO TO 2000
  719.   C
  720.   #ifdef NOCC
  721. ! 200    FORMAT('GDT>')
  722.   #else NOCC
  723.   200    FORMAT(' GDT>',$)
  724.   #endif NOCC
  725. ***************
  726. *** 115,123
  727.   230    FORMAT(2I6)
  728.   240    FORMAT(I6)
  729.   #ifdef NOCC
  730. ! 225    FORMAT('Limits:   ',$)
  731. ! 235    FORMAT('Entry:    ',$)
  732. ! 245    FORMAT('Idx,Ary:  ',$)
  733.   #else NOCC
  734.   225    FORMAT(' Limits:   ',$)
  735.   235    FORMAT(' Entry:    ',$)
  736.  
  737. --- 115,123 -----
  738.   230    FORMAT(2I6)
  739.   240    FORMAT(I6)
  740.   #ifdef NOCC
  741. ! 225    FORMAT('Limits:   ')
  742. ! 235    FORMAT('Entry:    ')
  743. ! 245    FORMAT('Idx,Ary:  ')
  744.   #else NOCC
  745.   225    FORMAT(' Limits:   ',$)
  746.   235    FORMAT(' Entry:    ',$)
  747. ***************
  748. *** 344,350
  749.       GO TO 2000
  750.   C
  751.   #ifdef NOCC
  752. ! 480    FORMAT('Old=',L2,6X,'New= ',$)
  753.   #else NOCC
  754.   480    FORMAT(' Old=',L2,6X,'New= ',$)
  755.   #endif NOCC
  756.  
  757. --- 344,350 -----
  758.       GO TO 2000
  759.   C
  760.   #ifdef NOCC
  761. ! 480    FORMAT('Old=',L2,6X,'New= ')
  762.   #else NOCC
  763.   480    FORMAT(' Old=',L2,6X,'New= ',$)
  764.   #endif NOCC
  765. ***************
  766. *** 528,534
  767.       GO TO 2000
  768.   C
  769.   #ifdef NOCC
  770. ! 590    FORMAT('Old= ',I6,6X,'New= ',$)
  771.   #else NOCC
  772.   590    FORMAT(' Old= ',I6,6X,'New= ',$)
  773.   #endif NOCC
  774.  
  775. --- 528,534 -----
  776.       GO TO 2000
  777.   C
  778.   #ifdef NOCC
  779. ! 590    FORMAT('Old= ',I6,6X,'New= ')
  780.   #else NOCC
  781.   590    FORMAT(' Old= ',I6,6X,'New= ',$)
  782.   #endif NOCC
  783. ***************
  784. *** 574,580
  785.       GO TO 2000
  786.   C
  787.   #ifdef NOCC
  788. ! 610    FORMAT('Old= ',I6,6X,'New= ',$)
  789.   #else NOCC
  790.   610    FORMAT(' Old= ',I6,6X,'New= ',$)
  791.   #endif NOCC
  792.  
  793. --- 574,580 -----
  794.       GO TO 2000
  795.   C
  796.   #ifdef NOCC
  797. ! 610    FORMAT('Old= ',I6,6X,'New= ')
  798.   #else NOCC
  799.   610    FORMAT(' Old= ',I6,6X,'New= ',$)
  800.   #endif NOCC
  801. *** np.F.orig    Mon Oct 24 15:28:58 1988
  802. --- np.F    Mon Oct 24 15:28:58 1988
  803. ***************
  804. *** 25,31
  805.   10    WRITE(OUTCH,50)
  806.   C                        !PROMPT FOR GAME.
  807.   #ifdef NOCC
  808. ! 50    FORMAT('>',$)
  809.   #else NOCC
  810.   50    FORMAT(' >',$)
  811.   #endif NOCC
  812.  
  813. --- 25,31 -----
  814.   10    WRITE(OUTCH,50)
  815.   C                        !PROMPT FOR GAME.
  816.   #ifdef NOCC
  817. ! 50    FORMAT('>')
  818.   #else NOCC
  819.   50    FORMAT(' >',$)
  820.   #endif NOCC
  821. ***************
  822. *** 30,36
  823.   50    FORMAT(' >',$)
  824.   #endif NOCC
  825.   
  826. ! 90    READ(INPCH,100, END=210) BUFFER
  827.   100    FORMAT(78A1)
  828.   
  829.       DO 200 LENGTH=78,1,-1
  830.  
  831. --- 30,36 -----
  832.   50    FORMAT(' >',$)
  833.   #endif NOCC
  834.   
  835. ! 90    READ(INPCH,100,END=210) (BUFFER(LENGTH),LENGTH=1,78)
  836.   100    FORMAT(78A1)
  837.   
  838.       DO 200 LENGTH=78,1,-1
  839. ***************
  840. *** 38,44
  841.   200    CONTINUE
  842.       GO TO 5
  843.   C                        !END OF FILE
  844. ! 210    STOP
  845.   C                        !TRY AGAIN.
  846.   
  847.   C
  848.  
  849. --- 38,44 -----
  850.   200    CONTINUE
  851.       GO TO 5
  852.   C                        !END OF FILE
  853. ! 210    CALL EXIT
  854.   C                        !TRY AGAIN.
  855.   
  856.   C
  857. ***************
  858. *** 55,61
  859.   
  860.   C CONVERT TO UPPER CASE
  861.   300    DO 400 I=1,LENGTH
  862. !        IF(and((BUFFER(I).GE.'a'),(BUFFER(I).LE.'z')))
  863.   &        BUFFER(I)=char(ichar(BUFFER(I))-32)
  864.   400    CONTINUE
  865.   #endif PDP
  866.  
  867. --- 55,61 -----
  868.   
  869.   C CONVERT TO UPPER CASE
  870.   300    DO 400 I=1,LENGTH
  871. !        IF(((BUFFER(I).GE.'a') .AND. (BUFFER(I).LE.'z')))
  872.   &        BUFFER(I)=char(ichar(BUFFER(I))-32)
  873.   400    CONTINUE
  874.   #endif PDP
  875. ***************
  876. *** 105,111
  877.   C                        !ECHO MODE, FORCE FAIL.
  878.       IF(.NOT.SYNMCH(X)) GO TO 100
  879.   C                        !DO SYN MATCH.
  880. !     IF(and((PRSO.GT.0),(PRSO.LT.XMIN))) LASTIT=PRSO
  881.   C
  882.   C SUCCESSFUL PARSE OR SUCCESSFUL VALIDATION
  883.   C
  884.  
  885. --- 105,111 -----
  886.   C                        !ECHO MODE, FORCE FAIL.
  887.       IF(.NOT.SYNMCH(X)) GO TO 100
  888.   C                        !DO SYN MATCH.
  889. !     IF(((PRSO.GT.0) .AND. (PRSO.LT.XMIN))) LASTIT=PRSO
  890.   C
  891.   C SUCCESSFUL PARSE OR SUCCESSFUL VALIDATION
  892.   C
  893. ***************
  894. *** 207,213
  895.   C                        !SPACE?
  896.       DO 500 I=1,9,3
  897.   C                        !SCH FOR CHAR.
  898. !       IF(and((J.GE.DLIMIT(I)),(J.LE.DLIMIT(I+1))))
  899.   &        GO TO 4000
  900.   500    CONTINUE
  901.   C
  902.  
  903. --- 207,213 -----
  904.   C                        !SPACE?
  905.       DO 500 I=1,9,3
  906.   C                        !SCH FOR CHAR.
  907. !       IF(((J.GE.DLIMIT(I)) .AND. (J.LE.DLIMIT(I+1))))
  908.   &        GO TO 4000
  909.   500    CONTINUE
  910.   C
  911. ***************
  912. *** 219,225
  913.   C
  914.   1000    IF(PRSCON.GT.INLNT) PRSCON=1
  915.   C                        !FORCE PARSE RESTART.
  916. !     IF(and((CP.EQ.0),(OP.EQ.1))) RETURN
  917.       IF(CP.EQ.0) OP=OP-2
  918.   C                        !ANY LAST WORD?
  919.       LEX=.TRUE.
  920.  
  921. --- 219,225 -----
  922.   C
  923.   1000    IF(PRSCON.GT.INLNT) PRSCON=1
  924.   C                        !FORCE PARSE RESTART.
  925. !     IF(((CP.EQ.0) .AND. (OP.EQ.1))) RETURN
  926.       IF(CP.EQ.0) OP=OP-2
  927.   C                        !ANY LAST WORD?
  928.       LEX=.TRUE.
  929. *** sverbs.F.orig    Mon Oct 24 15:28:59 1988
  930. --- sverbs.F    Mon Oct 24 15:28:58 1988
  931. ***************
  932. *** 293,303
  933.   C                        !TELLL SCORE.
  934.       IF(.NOT.YESNO(343,0,0)) RETURN
  935.   C                        !ASK FOR Y/N DECISION.
  936. ! #ifdef PDP
  937. ! C    close routine moved to exit for pdp version
  938. ! #else
  939. !     CLOSE (DBCH)
  940. ! #endif PDP
  941.       CALL EXIT
  942.   C                        !BYE.
  943.   C SVERBS, PAGE 4
  944.  
  945. --- 293,299 -----
  946.   C                        !TELLL SCORE.
  947.       IF(.NOT.YESNO(343,0,0)) RETURN
  948.   C                        !ASK FOR Y/N DECISION.
  949. ! C    don't close DBCH, just exit
  950.       CALL EXIT
  951.   C                        !BYE.
  952.   C SVERBS, PAGE 4
  953.  
  954.  
  955.